Option Explicit
Sub C_Sample036()
    Dim mySht     As Worksheet
    Dim myShtName As String
    myShtName = "Sheet1"					']wW
    On Error Resume Next
    Set mySht = Worksheets(myShtName)
    On Error GoTo 0
    If mySht Is Nothing Then
        MsgBox "u@" & myShtName & "sbC"
    Else
        MsgBox "u@" & myShtName & "sbC"
    End If
    Set mySht = Nothing						'
End Sub

